home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / gfa / procdure.lzh / VERBNOUN.LST < prev   
Encoding:
File List  |  1992-01-20  |  331 b   |  15 lines
  1. PROCEDURE verb_noun(entry$,VAR verb$,noun$)
  2.   verb$=""
  3.   noun$=""
  4.   IF LEN(entry$)
  5.     entry$=UPPER$(TRIM$(entry$))
  6.     IF INSTR(entry$," ")
  7.       verb$=LEFT$(entry$,INSTR(entry$," ")-1)
  8.       noun$=RIGHT$(entry$,LEN(entry$)-RINSTR(entry$," "))
  9.     ELSE
  10.       verb$=entry$
  11.       noun$=entry$
  12.     ENDIF
  13.   ENDIF
  14. RETURN
  15.